dr='n:'
f0='bjsmedic.dbf'
f1='medic_pr'
f2='medproc'
sele 1
use &dr&f1
zap
appen from &dr&f0
sele 2
use &dr&f2
inde on n1+n2+n3 to &dr&f2
use &DR&f2 inde &dr&f2
sele 1
go top
do while .not. eof()
   kunci=area_code+sub_areaco+pro_code
   sele 2
   seek kunci
   if .not. eof()
      sunp=profit_cen
   else
      sunp=' '
   endif
   sele 1
   repl sun_pc with sunp
   skip
enddo
